home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / saver1.dxr / 00023.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  887 b   |  37 lines
  1. on startMovie
  2.   global markerposition, savertime
  3.   set markerposition to mouseH() & "," & mouseV()
  4.   set the timeoutScript to EMPTY
  5.   set the keyDownScript to "exitMovie"
  6.   set the mouseDownScript to "exitMovie"
  7.   changephoto()
  8. end
  9.  
  10. on changephoto
  11.   set saverphoto1 to string(random(14))
  12.   set saverphoto2 to string(random(14))
  13.   if saverphoto1 = saverphoto2 then
  14.     set saverphoto1 to string(random(14))
  15.   end if
  16.   set the picture of cast "Photo" to the picture of cast saverphoto1
  17.   updateStage()
  18.   set markernum to string(random(8))
  19.   go(markernum)
  20. end
  21.  
  22. on idle
  23.   global markerposition
  24.   set currentmarkerposition to mouseH() & "," & mouseV()
  25.   if currentmarkerposition <> markerposition then
  26.     exitmovie()
  27.   end if
  28. end
  29.  
  30. on exitmovie
  31.   global fileName
  32.   set the keyDownScript to EMPTY
  33.   set the mouseDownScript to EMPTY
  34.   set the timeoutScript to "doTimeOut"
  35.   go(1, fileName)
  36. end
  37.